home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / S10.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  1.3 KB  |  48 lines
  1. 10   CLS:PRINT "STUDENT'S T-DISTRIBUTION TEST"
  2. 20   PRINT 
  3. 30   DIM P(10,2)
  4. 40   DIM V(2),R(2),M(2),D(2)
  5. 50   PRINT "TEST 1: MEAN=X"
  6. 60   PRINT "TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION"
  7. 70   PRINT "TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION"
  8. 80   PRINT "WHICH HYPOTHESIS";
  9. 90   INPUT T
  10. 100   PRINT 
  11. 110   FOR I = 1 TO  SGN (T - 1) + 1
  12. 120  V(I) = 0
  13. 130  D(I) = 0
  14. 140   PRINT "SAMPLE ";I;":"
  15. 150   PRINT "  NUMBER OF ELEMENTS";
  16. 160   INPUT R(I)
  17. 170   FOR J = 1 TO R(I)
  18. 180   PRINT "   ELEMENT" ;J;
  19. 190  INPUT P(J,I)
  20. 200  V (I) = V (I) + P (J,I)
  21. 210  D (I) = D (I) + P (J,I) ^ 2
  22. 220  NEXT J
  23. 230  M (I) = V (I) / R (I)
  24. 240  V (I) = (D(I) - V (I) ^ 2 /R (I)) / (R(I) - 1)
  25. 250  NEXT I
  26. 260  PRINT
  27. 270  IF T = 2   THEN 340
  28. 280  IF T = 3  THEN 380
  29. 290  PRINT "VALUE OF MEAN";
  30. 300  INPUT M
  31. 310  A = (M(1) - M) * SQR (R(1) / V (1))
  32. 320  B = R (1) - 1
  33. 330  GOTO  420
  34. 340  A = (M(1) - M (2)) / SQR (1/R (1) + 1/R (2))
  35. 350  B = R (1) + R (2) - 2
  36. 360  A = A/ SQR (((R(1) -1) * V (1) + (R(2) - 1 * V (2))/B)
  37. 370  GOTO  420
  38. 380  A = (M(1) - M (2)) / SQR (V(1) / R (1) + V (2) / R (2))
  39. 390  B = (V(1) / R (1) + V (2) / R (2)) ^ 2
  40. 400  B = B/ ((V(1) / R (1)) ^ 2/ (R(1) + 1) +(V(2) /R (2)) ^ 2 / (R(2) + 1 )) - 2
  41. 410  B = INT (B + 0.5)
  42. 420  PRINT
  43. 430  PRINT "T - VALUE ="; ABS (A)
  44. 440  PRINT "DEGREES OF FREEDOM ="; B
  45. 445  INPUT "Run again ";A$
  46. 447  IF A$="Y" OR A$="y" THEN 10
  47. 450  RUN "STAT"
  48.